/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / Print.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 50 72 69 6e 74 2e | 70 00 00 00 00 00 00 00 |..Print.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 17 51 00 | 00 01 1e a8 43 a6 7d a8 |......Q.|....C.}.|
|00000060| 43 a6 7d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.}.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 77 8f 00 00 |........|....w...|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 50 72 | 69 6e 74 2e 70 0d 3b 0d |File: Pr|int.p.;.|
|000000c0| 3b 0d 3b 20 43 6f 70 79 | 72 69 67 68 74 20 41 70 |;.; Copy|right Ap|
|000000d0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|000000e0| 63 2e 20 31 39 38 36 2d | 39 30 0d 3b 20 41 6c 6c |c. 1986-|90.; All|
|000000f0| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|00000100| 0d 3b 0d 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.;.*****|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 7d |********|*******}|
|00000130| 0d 0d 55 4e 49 54 20 50 | 52 49 4e 54 3b 0d 49 4e |..UNIT P|RINT;.IN|
|00000140| 54 45 52 46 41 43 45 0d | 55 53 45 53 20 54 59 50 |TERFACE.|USES TYP|
|00000150| 45 53 2c 51 55 49 43 4b | 44 52 41 57 2c 45 56 45 |ES,QUICK|DRAW,EVE|
|00000160| 4e 54 53 2c 43 4f 4e 54 | 52 4f 4c 53 2c 57 49 4e |NTS,CONT|ROLS,WIN|
|00000170| 44 4f 57 53 2c 4c 49 4e | 45 45 44 49 54 2c 44 49 |DOWS,LIN|EEDIT,DI|
|00000180| 41 4c 4f 47 53 3b 0d 43 | 4f 4e 53 54 0d 0d 0d 7b |ALOGS;.C|ONST...{|
|00000190| 20 45 72 72 6f 72 20 43 | 6f 64 65 73 20 7d 0d 70 | Error C|odes }.p|
|000001a0| 6e 74 72 43 6f 6e 46 61 | 69 6c 65 64 20 3d 20 24 |ntrConFa|iled = $|
|000001b0| 31 33 30 38 3b 20 20 7b | 20 63 6f 6e 6e 65 63 74 |1308;  {| connect|
|000001c0| 69 6f 6e 20 74 6f 20 74 | 68 65 20 70 72 69 6e 74 |ion to t|he print|
|000001d0| 65 72 20 66 61 69 6c 65 | 64 20 7d 0d 6d 65 6d 46 |er faile|d }.memF|
|000001e0| 75 6c 6c 45 72 72 20 3d | 20 24 46 46 38 30 3b 0d |ullErr =| $FF80;.|
|000001f0| 69 6f 41 62 6f 72 74 20 | 3d 20 24 46 46 45 35 3b |ioAbort |= $FFE5;|
|00000200| 0d 70 72 41 62 6f 72 74 | 20 3d 20 24 30 30 38 30 |.prAbort| = $0080|
|00000210| 3b 0d 6d 69 73 73 69 6e | 67 44 72 69 76 65 72 20 |;.missin|gDriver |
|00000220| 3d 20 24 31 33 30 31 3b | 20 20 7b 20 73 70 65 63 |= $1301;|  { spec|
|00000230| 69 66 69 65 64 20 64 72 | 69 76 65 72 20 6e 6f 74 |ified dr|iver not|
|00000240| 20 69 6e 20 73 79 73 74 | 65 6d 2f 64 72 69 76 65 | in syst|em/drive|
|00000250| 72 73 20 7d 0d 70 6f 72 | 74 4e 6f 74 4f 6e 20 3d |rs }.por|tNotOn =|
|00000260| 20 24 31 33 30 32 3b 20 | 20 7b 20 73 70 65 63 69 | $1302; | { speci|
|00000270| 66 69 65 64 20 70 6f 72 | 74 20 6e 6f 74 20 73 65 |fied por|t not se|
|00000280| 6c 65 63 74 65 64 20 69 | 6e 20 63 74 6c 20 70 61 |lected i|n ctl pa|
|00000290| 6e 65 6c 20 7d 0d 6e 6f | 50 72 69 6e 74 52 65 63 |nel }.no|PrintRec|
|000002a0| 6f 72 64 20 3d 20 24 31 | 33 30 33 3b 20 20 7b 20 |ord = $1|303;  { |
|000002b0| 6e 6f 20 70 72 69 6e 74 | 20 72 65 63 6f 72 64 20 |no print| record |
|000002c0| 77 61 73 20 67 69 76 65 | 6e 20 7d 0d 62 61 64 4c |was give|n }.badL|
|000002d0| 61 73 65 72 50 72 65 70 | 20 3d 20 24 31 33 30 34 |aserPrep| = $1304|
|000002e0| 3b 20 20 7b 20 6c 61 73 | 65 72 20 70 72 65 70 20 |;  { las|er prep |
|000002f0| 69 6e 20 6c 61 73 65 72 | 20 77 72 69 74 65 72 20 |in laser| writer |
|00000300| 69 6e 63 6f 6d 70 61 74 | 69 62 6c 65 20 7d 0d 62 |incompat|ible }.b|
|00000310| 61 64 4c 50 46 69 6c 65 | 20 3d 20 24 31 33 30 35 |adLPFile| = $1305|
|00000320| 3b 20 20 7b 20 6c 61 73 | 65 72 20 70 72 65 70 20 |;  { las|er prep |
|00000330| 69 6e 20 73 79 73 74 65 | 6d 2f 64 72 69 76 65 72 |in syste|m/driver|
|00000340| 73 20 69 6e 63 6f 6d 70 | 61 74 69 62 6c 65 20 7d |s incomp|atible }|
|00000350| 0d 70 61 70 43 6f 6e 6e | 4e 6f 74 4f 70 65 6e 20 |.papConn|NotOpen |
|00000360| 3d 20 24 31 33 30 36 3b | 20 20 7b 20 63 61 6e 6e |= $1306;|  { cann|
|00000370| 6f 74 20 63 6f 6e 6e 65 | 63 74 20 74 6f 20 6c 61 |ot conne|ct to la|
|00000380| 73 65 72 20 77 72 69 74 | 65 72 20 7d 0d 70 61 70 |ser writ|er }.pap|
|00000390| 52 65 61 64 57 72 69 74 | 65 45 72 72 20 3d 20 24 |ReadWrit|eErr = $|
|000003a0| 31 33 30 37 3b 20 20 7b | 20 61 70 70 6c 65 20 74 |1307;  {| apple t|
|000003b0| 61 6c 6b 20 50 41 50 52 | 65 61 64 20 6f 72 20 50 |alk PAPR|ead or P|
|000003c0| 41 50 57 72 69 74 65 20 | 65 72 72 6f 72 20 7d 0d |APWrite |error }.|
|000003d0| 70 74 72 43 6f 6e 6e 46 | 61 69 6c 65 64 20 3d 20 |ptrConnF|ailed = |
|000003e0| 24 31 33 30 38 3b 20 20 | 7b 20 63 61 6e 6e 6f 74 |$1308;  |{ cannot|
|000003f0| 20 65 73 74 61 62 6c 69 | 73 68 20 63 6f 6e 6e 65 | establi|sh conne|
|00000400| 63 74 69 6f 6e 20 77 69 | 74 68 20 69 6d 61 67 65 |ction wi|th image|
|00000410| 77 72 69 74 65 72 20 7d | 0d 62 61 64 4c 6f 61 64 |writer }|.badLoad|
|00000420| 50 61 72 61 6d 20 3d 20 | 24 31 33 30 39 3b 20 20 |Param = |$1309;  |
|00000430| 7b 20 70 61 72 61 6d 65 | 74 65 72 20 66 6f 72 20 |{ parame|ter for |
|00000440| 6c 6f 61 64 2f 75 6e 6c | 6f 61 64 20 69 73 20 69 |load/unl|oad is i|
|00000450| 6e 76 61 6c 69 64 20 7d | 0d 63 61 6c 6c 4e 6f 74 |nvalid }|.callNot|
|00000460| 53 75 70 70 6f 72 74 65 | 64 20 3d 20 24 31 33 30 |Supporte|d = $130|
|00000470| 41 3b 20 20 7b 20 74 6f | 6f 6c 63 61 6c 6c 20 6d |A;  { to|olcall m|
|00000480| 61 64 65 20 69 73 20 6e | 6f 74 20 73 75 70 70 6f |ade is n|ot suppo|
|00000490| 72 74 65 64 20 62 79 20 | 74 68 69 73 20 76 65 72 |rted by |this ver|
|000004a0| 73 69 6f 6e 20 7d 0d 73 | 74 61 72 74 55 70 41 6c |sion }.s|tartUpAl|
|000004b0| 72 65 61 64 79 4d 61 64 | 65 20 3d 20 24 31 33 32 |readyMad|e = $132|
|000004c0| 31 3b 20 20 7b 20 6c 6f | 77 20 6c 65 76 65 6c 20 |1;  { lo|w level |
|000004d0| 73 74 61 72 74 75 70 20 | 61 6c 72 65 61 64 79 20 |startup |already |
|000004e0| 6d 61 64 65 20 7d 0d 69 | 6e 76 61 6c 69 64 43 74 |made }.i|nvalidCt|
|000004f0| 6c 56 61 6c 20 3d 20 24 | 31 33 32 32 3b 20 20 7b |lVal = $|1322;  {|
|00000500| 20 69 6e 76 61 6c 69 64 | 20 63 6f 6e 74 72 6f 6c | invalid| control|
|00000510| 20 76 61 6c 75 65 20 68 | 61 64 20 62 65 65 6e 20 | value h|ad been |
|00000520| 73 70 65 63 27 64 20 7d | 0d 0d 7b 20 77 68 69 63 |spec'd }|..{ whic|
|00000530| 68 44 72 69 76 65 72 20 | 43 6f 64 65 73 20 7d 0d |hDriver |Codes }.|
|00000540| 62 6f 74 68 44 72 69 76 | 65 72 73 20 3d 20 24 30 |bothDriv|ers = $0|
|00000550| 3b 20 20 7b 20 69 6e 70 | 75 74 20 74 6f 20 50 4d |;  { inp|ut to PM|
|00000560| 4c 6f 61 64 44 72 69 76 | 65 72 20 61 6e 64 20 50 |LoadDriv|er and P|
|00000570| 4d 55 6e 6c 6f 61 64 44 | 72 69 76 65 72 20 7d 0d |MUnloadD|river }.|
|00000580| 70 72 69 6e 74 65 72 44 | 72 69 76 65 72 20 3d 20 |printerD|river = |
|00000590| 24 30 30 30 31 3b 20 20 | 7b 20 69 6e 70 75 74 20 |$0001;  |{ input |
|000005a0| 74 6f 20 50 4d 4c 6f 61 | 64 44 72 69 76 65 72 20 |to PMLoa|dDriver |
|000005b0| 61 6e 64 20 50 4d 55 6e | 6c 6f 61 64 44 72 69 76 |and PMUn|loadDriv|
|000005c0| 65 72 20 7d 0d 70 6f 72 | 74 44 72 69 76 65 72 20 |er }.por|tDriver |
|000005d0| 3d 20 24 30 30 30 32 3b | 20 20 7b 20 69 6e 70 75 |= $0002;|  { inpu|
|000005e0| 74 20 74 6f 20 50 4d 4c | 6f 61 64 44 72 69 76 65 |t to PML|oadDrive|
|000005f0| 72 20 61 6e 64 20 50 4d | 55 6e 6c 6f 61 64 44 72 |r and PM|UnloadDr|
|00000600| 69 76 65 72 20 7d 0d 0d | 7b 20 4f 74 68 65 72 20 |iver }..|{ Other |
|00000610| 43 6f 6e 73 74 61 6e 74 | 73 20 7d 0d 70 72 50 6f |Constant|s }.prPo|
|00000620| 72 74 72 61 69 74 20 3d | 20 24 30 30 30 30 3b 0d |rtrait =| $0000;.|
|00000630| 70 72 4c 61 6e 64 73 63 | 61 70 65 20 3d 20 24 30 |prLandsc|ape = $0|
|00000640| 30 30 31 3b 0d 70 72 49 | 6d 61 67 65 57 72 69 74 |001;.prI|mageWrit|
|00000650| 65 72 20 3d 20 24 30 30 | 30 31 3b 0d 70 72 49 6d |er = $00|01;.prIm|
|00000660| 61 67 65 57 72 69 74 65 | 72 4c 51 20 3d 20 24 30 |ageWrite|rLQ = $0|
|00000670| 30 30 32 3b 0d 70 72 4c | 61 73 65 72 57 72 69 74 |002;.prL|aserWrit|
|00000680| 65 72 20 3d 20 24 30 30 | 30 33 3b 0d 70 72 45 70 |er = $00|03;.prEp|
|00000690| 73 6f 6e 20 3d 20 24 30 | 30 30 34 3b 0d 70 72 42 |son = $0|004;.prB|
|000006a0| 6c 61 63 6b 57 68 69 74 | 65 20 3d 20 24 30 30 30 |lackWhit|e = $000|
|000006b0| 31 3b 0d 70 72 43 6f 6c | 6f 72 20 3d 20 24 30 30 |1;.prCol|or = $00|
|000006c0| 30 32 3b 0d 62 44 72 61 | 66 74 4c 6f 6f 70 20 3d |02;.bDra|ftLoop =|
|000006d0| 20 24 30 30 30 30 3b 0d | 62 53 70 6f 6f 6c 4c 6f | $0000;.|bSpoolLo|
|000006e0| 6f 70 20 3d 20 24 30 30 | 38 30 3b 0d 0d 54 59 50 |op = $00|80;..TYP|
|000006f0| 45 0d 50 72 50 72 69 6e | 74 65 72 53 70 65 63 52 |E.PrPrin|terSpecR|
|00000700| 65 63 20 3d 20 52 45 43 | 4f 52 44 0d 20 20 20 20 |ec = REC|ORD.    |
|00000710| 70 72 50 72 69 6e 74 65 | 72 54 79 70 65 20 3a 20 |prPrinte|rType : |
|00000720| 49 6e 74 65 67 65 72 3b | 0d 20 20 20 20 70 72 43 |Integer;|.    prC|
|00000730| 68 61 72 61 63 74 65 72 | 69 73 74 69 63 73 20 3a |haracter|istics :|
|00000740| 20 49 6e 74 65 67 65 72 | 3b 0d 45 4e 44 3b 0d 50 | Integer|;.END;.P|
|00000750| 72 49 6e 66 6f 52 65 63 | 48 6e 64 6c 20 3d 20 5e |rInfoRec|Hndl = ^|
|00000760| 50 72 49 6e 66 6f 52 65 | 63 50 74 72 3b 0d 50 72 |PrInfoRe|cPtr;.Pr|
|00000770| 49 6e 66 6f 52 65 63 50 | 74 72 20 3d 20 5e 50 72 |InfoRecP|tr = ^Pr|
|00000780| 49 6e 66 6f 52 65 63 3b | 0d 50 72 49 6e 66 6f 52 |InfoRec;|.PrInfoR|
|00000790| 65 63 20 3d 20 52 45 43 | 4f 52 44 0d 20 20 20 20 |ec = REC|ORD.    |
|000007a0| 69 44 65 76 20 3a 20 49 | 6e 74 65 67 65 72 3b 20 |iDev : I|nteger; |
|000007b0| 7b 20 72 65 73 65 72 76 | 65 64 20 66 6f 72 20 69 |{ reserv|ed for i|
|000007c0| 6e 74 65 72 6e 61 6c 20 | 75 73 65 20 7d 0d 20 20 |nternal |use }.  |
|000007d0| 20 20 69 56 52 65 73 20 | 3a 20 49 6e 74 65 67 65 |  iVRes |: Intege|
|000007e0| 72 3b 20 7b 20 76 65 72 | 74 69 63 61 6c 20 72 65 |r; { ver|tical re|
|000007f0| 73 6f 6c 75 74 69 6f 6e | 20 6f 66 20 70 72 69 6e |solution| of prin|
|00000800| 74 65 72 20 7d 0d 20 20 | 20 20 69 48 52 65 73 20 |ter }.  |  iHRes |
|00000810| 3a 20 49 6e 74 65 67 65 | 72 3b 20 7b 20 68 6f 72 |: Intege|r; { hor|
|00000820| 69 7a 6f 6e 74 61 6c 20 | 72 65 73 6f 6c 75 74 69 |izontal |resoluti|
|00000830| 6f 6e 20 6f 66 20 70 72 | 69 6e 74 65 72 20 7d 0d |on of pr|inter }.|
|00000840| 20 20 20 20 72 50 61 67 | 65 20 3a 20 52 65 63 74 |    rPag|e : Rect|
|00000850| 3b 20 7b 20 64 65 66 69 | 6e 69 6e 67 20 70 61 67 |; { defi|ning pag|
|00000860| 65 20 72 65 63 74 61 6e | 67 6c 65 20 7d 0d 45 4e |e rectan|gle }.EN|
|00000870| 44 3b 0d 50 72 4a 6f 62 | 52 65 63 50 74 72 20 3d |D;.PrJob|RecPtr =|
|00000880| 20 5e 50 72 4a 6f 62 52 | 65 63 3b 0d 50 72 4a 6f | ^PrJobR|ec;.PrJo|
|00000890| 62 52 65 63 20 3d 20 50 | 41 43 4b 45 44 20 52 45 |bRec = P|ACKED RE|
|000008a0| 43 4f 52 44 0d 20 20 20 | 20 69 46 73 74 50 61 67 |CORD.   | iFstPag|
|000008b0| 65 20 3a 20 49 6e 74 65 | 67 65 72 3b 20 7b 20 66 |e : Inte|ger; { f|
|000008c0| 69 72 73 74 20 70 61 67 | 65 20 74 6f 20 70 72 69 |irst pag|e to pri|
|000008d0| 6e 74 20 7d 0d 20 20 20 | 20 69 4c 73 74 50 61 67 |nt }.   | iLstPag|
|000008e0| 65 20 3a 20 49 6e 74 65 | 67 65 72 3b 20 7b 20 6c |e : Inte|ger; { l|
|000008f0| 61 73 74 20 70 61 67 65 | 20 74 6f 20 70 72 69 6e |ast page| to prin|
|00000900| 74 20 7d 0d 20 20 20 20 | 69 43 6f 70 69 65 73 20 |t }.    |iCopies |
|00000910| 3a 20 49 6e 74 65 67 65 | 72 3b 20 7b 20 6e 75 6d |: Intege|r; { num|
|00000920| 62 65 72 20 6f 66 20 63 | 6f 70 69 65 73 20 7d 0d |ber of c|opies }.|
|00000930| 20 20 20 20 62 4a 44 6f | 63 4c 6f 6f 70 20 3a 20 |    bJDo|cLoop : |
|00000940| 42 79 74 65 3b 20 7b 20 | 70 72 69 6e 74 69 6e 67 |Byte; { |printing|
|00000950| 20 6d 65 74 68 6f 64 20 | 7d 0d 20 20 20 20 66 46 | method |}.    fF|
|00000960| 72 6f 6d 55 73 65 72 20 | 3a 20 42 79 74 65 3b 20 |romUser |: Byte; |
|00000970| 7b 20 75 73 65 64 20 69 | 6e 74 65 72 6e 61 6c 6c |{ used i|nternall|
|00000980| 79 20 7d 0d 20 20 20 20 | 70 49 64 6c 65 50 72 6f |y }.    |pIdlePro|
|00000990| 63 20 3a 20 57 6f 72 64 | 50 72 6f 63 50 74 72 3b |c : Word|ProcPtr;|
|000009a0| 20 7b 20 62 61 63 6b 67 | 72 6f 75 6e 64 20 70 72 | { backg|round pr|
|000009b0| 6f 63 65 64 75 72 65 20 | 7d 0d 20 20 20 20 70 46 |ocedure |}.    pF|
|000009c0| 69 6c 65 4e 61 6d 65 20 | 3a 20 50 74 72 3b 20 7b |ileName |: Ptr; {|
|000009d0| 20 73 70 6f 6f 6c 20 66 | 69 6c 65 20 6e 61 6d 65 | spool f|ile name|
|000009e0| 20 7d 0d 20 20 20 20 69 | 46 69 6c 65 56 6f 6c 20 | }.    i|FileVol |
|000009f0| 3a 20 49 6e 74 65 67 65 | 72 3b 20 7b 20 73 70 6f |: Intege|r; { spo|
|00000a00| 6f 6c 20 66 69 6c 65 20 | 76 6f 6c 75 6d 65 20 72 |ol file |volume r|
|00000a10| 65 66 65 72 65 6e 63 65 | 20 6e 75 6d 62 65 72 20 |eference| number |
|00000a20| 7d 0d 20 20 20 20 62 46 | 69 6c 65 56 65 72 73 20 |}.    bF|ileVers |
|00000a30| 3a 20 42 79 74 65 3b 20 | 7b 20 73 70 6f 6f 6c 20 |: Byte; |{ spool |
|00000a40| 66 69 6c 65 20 76 65 72 | 73 69 6f 6e 20 6e 75 6d |file ver|sion num|
|00000a50| 62 65 72 20 7d 0d 20 20 | 20 20 62 4a 6f 62 58 20 |ber }.  |  bJobX |
|00000a60| 3a 20 42 79 74 65 3b 20 | 7b 20 75 73 65 64 20 69 |: Byte; |{ used i|
|00000a70| 6e 74 65 72 6e 61 6c 6c | 79 20 7d 0d 45 4e 44 3b |nternall|y }.END;|
|00000a80| 0d 50 72 53 74 79 6c 65 | 52 65 63 48 6e 64 6c 20 |.PrStyle|RecHndl |
|00000a90| 3d 20 5e 50 72 53 74 79 | 6c 65 52 65 63 50 74 72 |= ^PrSty|leRecPtr|
|00000aa0| 3b 0d 50 72 53 74 79 6c | 65 52 65 63 50 74 72 20 |;.PrStyl|eRecPtr |
|00000ab0| 3d 20 5e 50 72 53 74 79 | 6c 65 52 65 63 3b 0d 50 |= ^PrSty|leRec;.P|
|00000ac0| 72 53 74 79 6c 65 52 65 | 63 20 3d 20 52 45 43 4f |rStyleRe|c = RECO|
|00000ad0| 52 44 0d 20 20 20 20 77 | 44 65 76 20 3a 20 49 6e |RD.    w|Dev : In|
|00000ae0| 74 65 67 65 72 3b 20 7b | 20 6f 75 74 70 75 74 20 |teger; {| output |
|00000af0| 71 75 61 6c 69 74 79 20 | 69 6e 66 6f 72 6d 61 74 |quality |informat|
|00000b00| 69 6f 6e 20 7d 0d 20 20 | 20 20 69 6e 74 65 72 6e |ion }.  |  intern|
|00000b10| 41 20 3a 20 41 52 52 41 | 59 5b 31 2e 2e 33 5d 20 |A : ARRA|Y[1..3] |
|00000b20| 4f 46 20 49 6e 74 65 67 | 65 72 3b 20 7b 20 66 6f |OF Integ|er; { fo|
|00000b30| 72 20 69 6e 74 65 72 6e | 61 6c 20 75 73 65 20 7d |r intern|al use }|
|00000b40| 0d 20 20 20 20 66 65 65 | 64 20 3a 20 49 6e 74 65 |.    fee|d : Inte|
|00000b50| 67 65 72 3b 20 7b 20 70 | 61 70 65 72 20 66 65 65 |ger; { p|aper fee|
|00000b60| 64 20 74 79 70 65 20 7d | 0d 20 20 20 20 70 61 70 |d type }|.    pap|
|00000b70| 65 72 54 79 70 65 20 3a | 20 49 6e 74 65 67 65 72 |erType :| Integer|
|00000b80| 3b 20 7b 20 70 61 70 65 | 72 20 74 79 70 65 20 7d |; { pape|r type }|
|00000b90| 0d 20 20 20 20 63 72 57 | 69 64 74 68 20 3a 20 49 |.    crW|idth : I|
|00000ba0| 6e 74 65 67 65 72 3b 20 | 7b 20 63 61 72 72 69 61 |nteger; |{ carria|
|00000bb0| 67 65 20 57 69 64 74 68 | 20 66 6f 72 20 69 6d 61 |ge Width| for ima|
|00000bc0| 67 65 20 77 72 69 74 65 | 72 20 6f 72 20 76 65 72 |ge write|r or ver|
|00000bd0| 74 69 63 61 6c 20 73 69 | 7a 69 6e 67 20 66 6f 72 |tical si|zing for|
|00000be0| 20 6c 61 7a 65 72 20 77 | 72 69 74 65 72 20 7d 0d | lazer w|riter }.|
|00000bf0| 20 20 20 20 72 65 64 75 | 63 74 69 6f 6e 20 3a 20 |    redu|ction : |
|00000c00| 49 6e 74 65 67 65 72 3b | 20 7b 20 25 20 72 65 64 |Integer;| { % red|
|00000c10| 75 63 74 69 6f 6e 2c 20 | 6c 61 73 65 72 20 77 72 |uction, |laser wr|
|00000c20| 69 74 65 72 20 6f 6e 6c | 79 20 7d 0d 20 20 20 20 |iter onl|y }.    |
|00000c30| 69 6e 74 65 72 6e 42 20 | 3a 20 49 6e 74 65 67 65 |internB |: Intege|
|00000c40| 72 3b 20 7b 20 66 6f 72 | 20 69 6e 74 65 72 6e 61 |r; { for| interna|
|00000c50| 6c 20 75 73 65 20 7d 0d | 45 4e 44 3b 0d 50 72 52 |l use }.|END;.PrR|
|00000c60| 65 63 48 6e 64 6c 20 3d | 20 5e 50 72 52 65 63 50 |ecHndl =| ^PrRecP|
|00000c70| 74 72 3b 0d 50 72 52 65 | 63 50 74 72 20 3d 20 5e |tr;.PrRe|cPtr = ^|
|00000c80| 50 72 52 65 63 3b 0d 50 | 72 52 65 63 20 3d 20 52 |PrRec;.P|rRec = R|
|00000c90| 45 43 4f 52 44 0d 20 20 | 20 20 70 72 56 65 72 73 |ECORD.  |  prVers|
|00000ca0| 69 6f 6e 20 3a 20 49 6e | 74 65 67 65 72 3b 20 7b |ion : In|teger; {|
|00000cb0| 20 70 72 69 6e 74 20 6d | 61 6e 61 67 65 72 20 76 | print m|anager v|
|00000cc0| 65 72 73 69 6f 6e 20 7d | 0d 20 20 20 20 70 72 49 |ersion }|.    prI|
|00000cd0| 6e 66 6f 20 3a 20 50 72 | 49 6e 66 6f 52 65 63 3b |nfo : Pr|InfoRec;|
|00000ce0| 20 7b 20 70 72 69 6e 74 | 65 72 20 69 6e 66 6f 6d | { print|er infom|
|00000cf0| 61 74 69 6f 6e 20 73 75 | 62 72 65 63 6f 72 64 20 |ation su|brecord |
|00000d00| 7d 0d 20 20 20 20 72 50 | 61 70 65 72 20 3a 20 52 |}.    rP|aper : R|
|00000d10| 65 63 74 3b 20 7b 20 44 | 65 66 69 6e 69 6e 67 20 |ect; { D|efining |
|00000d20| 70 61 70 65 72 20 72 65 | 63 74 61 6e 67 6c 65 20 |paper re|ctangle |
|00000d30| 7d 0d 20 20 20 20 70 72 | 53 74 6c 20 3a 20 50 72 |}.    pr|Stl : Pr|
|00000d40| 53 74 79 6c 65 52 65 63 | 3b 20 7b 20 73 74 79 6c |StyleRec|; { styl|
|00000d50| 65 20 73 75 62 72 65 63 | 6f 72 64 20 7d 0d 20 20 |e subrec|ord }.  |
|00000d60| 20 20 70 72 49 6e 66 6f | 50 54 20 3a 20 50 41 43 |  prInfo|PT : PAC|
|00000d70| 4b 45 44 20 41 52 52 41 | 59 5b 31 2e 2e 31 34 5d |KED ARRA|Y[1..14]|
|00000d80| 20 4f 46 20 42 79 74 65 | 3b 20 7b 20 72 65 73 65 | OF Byte|; { rese|
|00000d90| 72 76 65 64 20 66 6f 72 | 20 69 6e 74 65 72 6e 61 |rved for| interna|
|00000da0| 6c 20 75 73 65 20 7d 0d | 20 20 20 20 70 72 58 49 |l use }.|    prXI|
|00000db0| 6e 66 6f 20 3a 20 50 41 | 43 4b 45 44 20 41 52 52 |nfo : PA|CKED ARR|
|00000dc0| 41 59 5b 31 2e 2e 32 34 | 5d 20 4f 46 20 42 79 74 |AY[1..24|] OF Byt|
|00000dd0| 65 3b 20 7b 20 72 65 73 | 65 72 76 65 64 20 66 6f |e; { res|erved fo|
|00000de0| 72 20 69 6e 74 65 72 6e | 61 6c 20 75 73 65 20 7d |r intern|al use }|
|00000df0| 0d 20 20 20 20 70 72 4a | 6f 62 20 3a 20 50 72 4a |.    prJ|ob : PrJ|
|00000e00| 6f 62 52 65 63 3b 20 7b | 20 6a 6f 62 20 73 75 62 |obRec; {| job sub|
|00000e10| 72 65 63 6f 72 64 20 7d | 0d 20 20 20 20 70 72 69 |record }|.    pri|
|00000e20| 6e 74 58 20 3a 20 50 41 | 43 4b 45 44 20 41 52 52 |ntX : PA|CKED ARR|
|00000e30| 41 59 5b 31 2e 2e 33 38 | 5d 20 4f 46 20 42 79 74 |AY[1..38|] OF Byt|
|00000e40| 65 3b 20 7b 20 72 65 73 | 65 72 76 65 64 20 66 6f |e; { res|erved fo|
|00000e50| 72 20 66 75 74 75 72 65 | 20 75 73 65 20 7d 0d 20 |r future| use }. |
|00000e60| 20 20 20 69 52 65 73 65 | 72 76 65 64 20 3a 20 49 |   iRese|rved : I|
|00000e70| 6e 74 65 67 65 72 3b 20 | 7b 20 72 65 73 65 72 76 |nteger; |{ reserv|
|00000e80| 65 64 20 66 6f 72 20 69 | 6e 74 65 72 6e 61 6c 20 |ed for i|nternal |
|00000e90| 75 73 65 20 7d 0d 45 4e | 44 3b 0d 50 72 53 74 61 |use }.EN|D;.PrSta|
|00000ea0| 74 75 73 52 65 63 48 6e | 64 6c 20 3d 20 5e 50 72 |tusRecHn|dl = ^Pr|
|00000eb0| 53 74 61 74 75 73 52 65 | 63 50 74 72 3b 0d 50 72 |StatusRe|cPtr;.Pr|
|00000ec0| 53 74 61 74 75 73 52 65 | 63 50 74 72 20 3d 20 5e |StatusRe|cPtr = ^|
|00000ed0| 50 72 53 74 61 74 75 73 | 52 65 63 3b 0d 50 72 53 |PrStatus|Rec;.PrS|
|00000ee0| 74 61 74 75 73 52 65 63 | 20 3d 20 52 45 43 4f 52 |tatusRec| = RECOR|
|00000ef0| 44 0d 20 20 20 20 69 54 | 6f 74 50 61 67 65 73 20 |D.    iT|otPages |
|00000f00| 3a 20 49 6e 74 65 67 65 | 72 3b 20 7b 20 6e 75 6d |: Intege|r; { num|
|00000f10| 62 65 72 20 6f 66 20 70 | 61 67 65 73 20 69 6e 20 |ber of p|ages in |
|00000f20| 73 70 6f 6f 6c 20 66 69 | 6c 65 20 7d 0d 20 20 20 |spool fi|le }.   |
|00000f30| 20 69 43 75 72 50 61 67 | 65 20 3a 20 49 6e 74 65 | iCurPag|e : Inte|
|00000f40| 67 65 72 3b 20 7b 20 70 | 61 67 65 20 62 65 69 6e |ger; { p|age bein|
|00000f50| 67 20 70 72 69 6e 74 65 | 64 20 7d 0d 20 20 20 20 |g printe|d }.    |
|00000f60| 69 54 6f 74 43 6f 70 69 | 65 73 20 3a 20 49 6e 74 |iTotCopi|es : Int|
|00000f70| 65 67 65 72 3b 20 7b 20 | 6e 75 6d 62 65 72 20 6f |eger; { |number o|
|00000f80| 66 20 63 6f 70 69 65 73 | 20 72 65 71 75 65 73 74 |f copies| request|
|00000f90| 65 64 20 7d 0d 20 20 20 | 20 69 43 75 72 43 6f 70 |ed }.   | iCurCop|
|00000fa0| 79 20 3a 20 49 6e 74 65 | 67 65 72 3b 20 7b 20 63 |y : Inte|ger; { c|
|00000fb0| 6f 70 79 20 62 65 69 6e | 67 20 70 72 69 6e 74 65 |opy bein|g printe|
|00000fc0| 64 20 7d 0d 20 20 20 20 | 69 54 6f 74 42 61 6e 64 |d }.    |iTotBand|
|00000fd0| 73 20 3a 20 49 6e 74 65 | 67 65 72 3b 20 7b 20 72 |s : Inte|ger; { r|
|00000fe0| 65 73 65 72 76 65 64 20 | 66 6f 72 20 69 6e 74 65 |eserved |for inte|
|00000ff0| 72 6e 61 6c 20 75 73 65 | 20 7d 0d 20 20 20 20 69 |rnal use| }.    i|
|00001000| 43 75 72 42 61 6e 64 20 | 3a 20 49 6e 74 65 67 65 |CurBand |: Intege|
|00001010| 72 3b 20 7b 20 72 65 73 | 65 72 76 65 64 20 66 6f |r; { res|erved fo|
|00001020| 72 20 69 6e 74 65 72 6e | 61 6c 20 75 73 65 20 7d |r intern|al use }|
|00001030| 0d 20 20 20 20 66 50 67 | 44 69 72 74 79 20 3a 20 |.    fPg|Dirty : |
|00001040| 42 6f 6f 6c 65 61 6e 3b | 20 7b 20 54 52 55 45 20 |Boolean;| { TRUE |
|00001050| 69 66 20 73 74 61 72 74 | 65 64 20 70 72 69 6e 74 |if start|ed print|
|00001060| 69 6e 67 20 70 61 67 65 | 20 7d 0d 20 20 20 20 66 |ing page| }.    f|
|00001070| 49 6d 61 67 69 6e 67 20 | 3a 20 49 6e 74 65 67 65 |Imaging |: Intege|
|00001080| 72 3b 20 7b 20 72 65 73 | 65 72 76 65 64 20 66 6f |r; { res|erved fo|
|00001090| 72 20 69 6e 74 65 72 6e | 61 6c 20 75 73 65 20 7d |r intern|al use }|
|000010a0| 0d 20 20 20 20 68 50 72 | 69 6e 74 20 3a 20 50 72 |.    hPr|int : Pr|
|000010b0| 52 65 63 48 6e 64 6c 3b | 20 7b 20 68 61 6e 64 6c |RecHndl;| { handl|
|000010c0| 65 20 6f 66 20 70 72 69 | 6e 74 20 72 65 63 6f 72 |e of pri|nt recor|
|000010d0| 64 20 7d 0d 20 20 20 20 | 70 50 72 50 6f 72 74 20 |d }.    |pPrPort |
|000010e0| 3a 20 47 72 61 66 50 6f | 72 74 50 74 72 3b 20 7b |: GrafPo|rtPtr; {|
|000010f0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 67 72 61 66 | pointer| to graf|
|00001100| 70 6f 72 74 20 62 65 69 | 6e 67 20 75 73 65 20 66 |port bei|ng use f|
|00001110| 6f 72 20 70 72 69 6e 74 | 69 6e 67 20 7d 0d 20 20 |or print|ing }.  |
|00001120| 20 20 68 50 69 63 20 3a | 20 4c 6f 6e 67 69 6e 74 |  hPic :| Longint|
|00001130| 3b 20 7b 20 72 65 73 65 | 72 76 65 64 20 66 6f 72 |; { rese|rved for|
|00001140| 20 69 6e 74 65 72 6e 61 | 6c 20 75 73 65 20 7d 0d | interna|l use }.|
|00001150| 45 4e 44 3b 0d 50 52 4f | 43 45 44 55 52 45 20 50 |END;.PRO|CEDURE P|
|00001160| 4d 42 6f 6f 74 49 6e 69 | 74 20 20 20 3b 0d 50 52 |MBootIni|t   ;.PR|
|00001170| 4f 43 45 44 55 52 45 20 | 50 4d 4c 6f 61 64 44 72 |OCEDURE |PMLoadDr|
|00001180| 69 76 65 72 20 28 20 77 | 68 69 63 68 44 72 69 76 |iver ( w|hichDriv|
|00001190| 65 72 3a 49 6e 74 65 67 | 65 72 29 20 20 3b 0d 50 |er:Integ|er)  ;.P|
|000011a0| 52 4f 43 45 44 55 52 45 | 20 50 4d 52 65 73 65 74 |ROCEDURE| PMReset|
|000011b0| 20 20 20 3b 0d 50 52 4f | 43 45 44 55 52 45 20 50 |   ;.PRO|CEDURE P|
|000011c0| 4d 53 68 75 74 44 6f 77 | 6e 20 20 20 3b 0d 50 52 |MShutDow|n   ;.PR|
|000011d0| 4f 43 45 44 55 52 45 20 | 50 4d 53 74 61 72 74 55 |OCEDURE |PMStartU|
|000011e0| 70 20 28 20 75 73 65 72 | 49 44 3a 49 6e 74 65 67 |p ( user|ID:Integ|
|000011f0| 65 72 3b 20 64 50 61 67 | 65 41 64 64 72 3a 49 6e |er; dPag|eAddr:In|
|00001200| 74 65 67 65 72 29 20 20 | 3b 0d 46 55 4e 43 54 49 |teger)  |;.FUNCTI|
|00001210| 4f 4e 20 50 4d 53 74 61 | 74 75 73 20 20 3a 20 42 |ON PMSta|tus  : B|
|00001220| 6f 6f 6c 65 61 6e 20 3b | 0d 50 52 4f 43 45 44 55 |oolean ;|.PROCEDU|
|00001230| 52 45 20 50 4d 55 6e 6c | 6f 61 64 44 72 69 76 65 |RE PMUnl|oadDrive|
|00001240| 72 20 28 20 77 68 69 63 | 68 44 72 69 76 65 72 3a |r ( whic|hDriver:|
|00001250| 49 6e 74 65 67 65 72 29 | 20 20 3b 0d 46 55 4e 43 |Integer)|  ;.FUNC|
|00001260| 54 49 4f 4e 20 50 4d 56 | 65 72 73 69 6f 6e 20 20 |TION PMV|ersion  |
|00001270| 3a 20 49 6e 74 65 67 65 | 72 20 3b 0d 46 55 4e 43 |: Intege|r ;.FUNC|
|00001280| 54 49 4f 4e 20 50 72 43 | 68 6f 6f 73 65 50 72 69 |TION PrC|hoosePri|
|00001290| 6e 74 65 72 20 20 3a 20 | 42 6f 6f 6c 65 61 6e 20 |nter  : |Boolean |
|000012a0| 3b 0d 46 55 4e 43 54 49 | 4f 4e 20 50 72 43 68 6f |;.FUNCTI|ON PrCho|
|000012b0| 6f 73 65 72 20 20 3a 20 | 42 6f 6f 6c 65 61 6e 20 |oser  : |Boolean |
|000012c0| 3b 0d 50 52 4f 43 45 44 | 55 52 45 20 50 72 43 6c |;.PROCED|URE PrCl|
|000012d0| 6f 73 65 44 6f 63 20 28 | 20 70 72 69 6e 74 47 72 |oseDoc (| printGr|
|000012e0| 61 66 50 6f 72 74 50 74 | 72 3a 47 72 61 66 50 6f |afPortPt|r:GrafPo|
|000012f0| 72 74 50 74 72 29 20 20 | 3b 0d 50 52 4f 43 45 44 |rtPtr)  |;.PROCED|
|00001300| 55 52 45 20 50 72 43 6c | 6f 73 65 50 61 67 65 20 |URE PrCl|osePage |
|00001310| 28 20 70 72 69 6e 74 47 | 72 61 66 50 6f 72 74 50 |( printG|rafPortP|
|00001320| 74 72 3a 47 72 61 66 50 | 6f 72 74 50 74 72 29 20 |tr:GrafP|ortPtr) |
|00001330| 20 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 50 72 44 | ;.PROCE|DURE PrD|
|00001340| 65 66 61 75 6c 74 20 28 | 20 70 72 69 6e 74 52 65 |efault (| printRe|
|00001350| 63 6f 72 64 48 61 6e 64 | 6c 65 3a 50 72 52 65 63 |cordHand|le:PrRec|
|00001360| 48 6e 64 6c 29 20 20 3b | 0d 46 55 4e 43 54 49 4f |Hndl)  ;|.FUNCTIO|
|00001370| 4e 20 50 72 44 72 69 76 | 65 72 56 65 72 20 20 3a |N PrDriv|erVer  :|
|00001380| 20 49 6e 74 65 67 65 72 | 20 3b 0d 46 55 4e 43 54 | Integer| ;.FUNCT|
|00001390| 49 4f 4e 20 50 72 45 72 | 72 6f 72 20 20 3a 20 49 |ION PrEr|ror  : I|
|000013a0| 6e 74 65 67 65 72 20 3b | 0d 46 55 4e 43 54 49 4f |nteger ;|.FUNCTIO|
|000013b0| 4e 20 50 72 47 65 74 44 | 6f 63 4e 61 6d 65 20 20 |N PrGetD|ocName  |
|000013c0| 3a 20 53 74 72 69 6e 67 | 50 74 72 20 3b 0d 46 55 |: String|Ptr ;.FU|
|000013d0| 4e 43 54 49 4f 4e 20 50 | 72 47 65 74 4e 65 74 77 |NCTION P|rGetNetw|
|000013e0| 6f 72 6b 4e 61 6d 65 20 | 20 3a 20 53 74 72 69 6e |orkName | : Strin|
|000013f0| 67 50 74 72 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |gPtr ;.F|UNCTION |
|00001400| 50 72 47 65 74 50 67 4f | 72 69 65 6e 74 61 74 69 |PrGetPgO|rientati|
|00001410| 6f 6e 20 28 20 70 72 52 | 65 63 6f 72 64 48 61 6e |on ( prR|ecordHan|
|00001420| 64 6c 65 3a 50 72 52 65 | 63 48 6e 64 6c 29 20 3a |dle:PrRe|cHndl) :|
|00001430| 20 49 6e 74 65 67 65 72 | 20 3b 0d 46 55 4e 43 54 | Integer| ;.FUNCT|
|00001440| 49 4f 4e 20 50 72 47 65 | 74 50 6f 72 74 44 76 72 |ION PrGe|tPortDvr|
|00001450| 4e 61 6d 65 20 20 3a 20 | 53 74 72 69 6e 67 50 74 |Name  : |StringPt|
|00001460| 72 20 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 50 72 47 |r ;.FUNC|TION PrG|
|00001470| 65 74 50 72 69 6e 74 65 | 72 44 76 72 4e 61 6d 65 |etPrinte|rDvrName|
|00001480| 20 20 3a 20 53 74 72 69 | 6e 67 50 74 72 20 3b 0d |  : Stri|ngPtr ;.|
|00001490| 46 55 4e 43 54 49 4f 4e | 20 50 72 47 65 74 50 72 |FUNCTION| PrGetPr|
|000014a0| 69 6e 74 65 72 53 70 65 | 63 73 20 20 3a 20 50 72 |interSpe|cs  : Pr|
|000014b0| 50 72 69 6e 74 65 72 53 | 70 65 63 52 65 63 20 3b |PrinterS|pecRec ;|
|000014c0| 0d 46 55 4e 43 54 49 4f | 4e 20 50 72 47 65 74 55 |.FUNCTIO|N PrGetU|
|000014d0| 73 65 72 4e 61 6d 65 20 | 20 3a 20 53 74 72 69 6e |serName | : Strin|
|000014e0| 67 50 74 72 20 3b 0d 46 | 55 4e 43 54 49 4f 4e 20 |gPtr ;.F|UNCTION |
|000014f0| 50 72 47 65 74 5a 6f 6e | 65 4e 61 6d 65 20 20 3a |PrGetZon|eName  :|
|00001500| 20 53 74 72 69 6e 67 50 | 74 72 20 3b 0d 46 55 4e | StringP|tr ;.FUN|
|00001510| 43 54 49 4f 4e 20 50 72 | 4a 6f 62 44 69 61 6c 6f |CTION Pr|JobDialo|
|00001520| 67 20 28 20 70 72 69 6e | 74 52 65 63 6f 72 64 48 |g ( prin|tRecordH|
|00001530| 61 6e 64 6c 65 3a 50 72 | 52 65 63 48 6e 64 6c 29 |andle:Pr|RecHndl)|
|00001540| 20 3a 20 42 6f 6f 6c 65 | 61 6e 20 3b 0d 46 55 4e | : Boole|an ;.FUN|
|00001550| 43 54 49 4f 4e 20 50 72 | 4f 70 65 6e 44 6f 63 20 |CTION Pr|OpenDoc |
|00001560| 28 20 70 72 69 6e 74 52 | 65 63 6f 72 64 48 61 6e |( printR|ecordHan|
|00001570| 64 6c 65 3a 50 72 52 65 | 63 48 6e 64 6c 3b 20 70 |dle:PrRe|cHndl; p|
|00001580| 72 69 6e 74 47 72 61 66 | 50 6f 72 74 50 74 72 3a |rintGraf|PortPtr:|
|00001590| 47 72 61 66 50 6f 72 74 | 50 74 72 29 20 3a 20 47 |GrafPort|Ptr) : G|
|000015a0| 72 61 66 50 6f 72 74 50 | 74 72 20 3b 0d 50 52 4f |rafPortP|tr ;.PRO|
|000015b0| 43 45 44 55 52 45 20 50 | 72 4f 70 65 6e 50 61 67 |CEDURE P|rOpenPag|
|000015c0| 65 20 28 20 70 72 69 6e | 74 47 72 61 66 50 6f 72 |e ( prin|tGrafPor|
|000015d0| 74 50 74 72 3a 47 72 61 | 66 50 6f 72 74 50 74 72 |tPtr:Gra|fPortPtr|
|000015e0| 3b 20 70 61 67 65 46 72 | 61 6d 65 50 74 72 3a 52 |; pageFr|amePtr:R|
|000015f0| 65 63 74 50 74 72 29 20 | 20 3b 0d 50 52 4f 43 45 |ectPtr) | ;.PROCE|
|00001600| 44 55 52 45 20 50 72 50 | 69 63 46 69 6c 65 20 28 |DURE PrP|icFile (|
|00001610| 20 70 72 69 6e 74 52 65 | 63 6f 72 64 48 61 6e 64 | printRe|cordHand|
|00001620| 6c 65 3a 50 72 52 65 63 | 48 6e 64 6c 3b 20 70 72 |le:PrRec|Hndl; pr|
|00001630| 69 6e 74 47 72 61 66 50 | 6f 72 74 50 74 72 3a 47 |intGrafP|ortPtr:G|
|00001640| 72 61 66 50 6f 72 74 50 | 74 72 3b 20 73 74 61 74 |rafPortP|tr; stat|
|00001650| 75 73 52 65 63 50 74 72 | 3a 50 72 53 74 61 74 75 |usRecPtr|:PrStatu|
|00001660| 73 52 65 63 50 74 72 29 | 20 20 3b 0d 50 52 4f 43 |sRecPtr)|  ;.PROC|
|00001670| 45 44 55 52 45 20 50 72 | 50 69 78 65 6c 4d 61 70 |EDURE Pr|PixelMap|
|00001680| 20 28 20 73 72 63 4c 6f | 63 50 74 72 3a 4c 6f 63 | ( srcLo|cPtr:Loc|
|00001690| 49 6e 66 6f 3b 20 73 72 | 63 52 65 63 74 50 74 72 |Info; sr|cRectPtr|
|000016a0| 3a 52 65 63 74 3b 20 63 | 6f 6c 6f 72 46 6c 61 67 |:Rect; c|olorFlag|
|000016b0| 3a 42 6f 6f 6c 65 61 6e | 29 20 20 3b 0d 46 55 4e |:Boolean|)  ;.FUN|
|000016c0| 43 54 49 4f 4e 20 50 72 | 50 6f 72 74 56 65 72 20 |CTION Pr|PortVer |
|000016d0| 20 3a 20 49 6e 74 65 67 | 65 72 20 3b 0d 50 52 4f | : Integ|er ;.PRO|
|000016e0| 43 45 44 55 52 45 20 50 | 72 53 65 74 44 6f 63 4e |CEDURE P|rSetDocN|
|000016f0| 61 6d 65 20 28 20 44 6f | 63 4e 61 6d 65 50 74 72 |ame ( Do|cNamePtr|
|00001700| 3a 53 74 72 69 6e 67 50 | 74 72 29 20 20 3b 0d 50 |:StringP|tr)  ;.P|
|00001710| 52 4f 43 45 44 55 52 45 | 20 50 72 53 65 74 45 72 |ROCEDURE| PrSetEr|
|00001720| 72 6f 72 20 28 20 65 72 | 72 6f 72 4e 75 6d 62 65 |ror ( er|rorNumbe|
|00001730| 72 3a 49 6e 74 65 67 65 | 72 29 20 20 3b 0d 46 55 |r:Intege|r)  ;.FU|
|00001740| 4e 43 54 49 4f 4e 20 50 | 72 53 74 6c 44 69 61 6c |NCTION P|rStlDial|
|00001750| 6f 67 20 28 20 70 72 69 | 6e 74 52 65 63 6f 72 64 |og ( pri|ntRecord|
|00001760| 48 61 6e 64 6c 65 3a 50 | 72 52 65 63 48 6e 64 6c |Handle:P|rRecHndl|
|00001770| 29 20 3a 20 42 6f 6f 6c | 65 61 6e 20 3b 0d 46 55 |) : Bool|ean ;.FU|
|00001780| 4e 43 54 49 4f 4e 20 50 | 72 56 61 6c 69 64 61 74 |NCTION P|rValidat|
|00001790| 65 20 28 20 70 72 69 6e | 74 52 65 63 6f 72 64 48 |e ( prin|tRecordH|
|000017a0| 61 6e 64 6c 65 3a 50 72 | 52 65 63 48 6e 64 6c 29 |andle:Pr|RecHndl)|
|000017b0| 20 3a 20 42 6f 6f 6c 65 | 61 6e 20 3b 0d 49 4d 50 | : Boole|an ;.IMP|
|000017c0| 4c 45 4d 45 4e 54 41 54 | 49 4f 4e 0d 45 4e 44 2e |LEMENTAT|ION.END.|
|000017d0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001800| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00001810| 00 2a 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |.*......|........|
|00001820| ff ff 00 00 00 4c 00 00 | 00 00 00 80 00 00 00 00 |.....L..|........|
|00001830| 07 50 72 69 6e 74 2e 70 | 02 00 00 00 54 45 58 54 |.Print.p|....TEXT|
|00001840| 4d 50 53 20 01 00 00 40 | 01 40 00 00 00 00 3d 96 |MPS ...@|.@....=.|
|00001850| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 40 01 40 |..TEXTMP|S ...@.@|
|00001860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001870| 00 00 a1 49 a6 80 00 00 | 17 51 00 00 01 1e 00 00 |...I....|.Q......|
|00001880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00001910| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+